home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 January / inter@ivo 1997-01.iso / cybint12 / bin / gordgame.dxr / 00016.ls < prev    next >
Encoding:
Text File  |  1996-12-14  |  657 b   |  34 lines
  1. on exitFrame
  2.   global actual, act
  3.   if act = 0 then
  4.     if actual = 0 then
  5.       if (the mouseCast > 10) and (the mouseCast < 15) then
  6.         cursor([901, 902])
  7.       else
  8.         if rollOver(22) or rollOver(23) then
  9.           cursor([901, 902])
  10.         else
  11.           cursor(-1)
  12.         end if
  13.       end if
  14.     end if
  15.     if actual = 1 then
  16.       cursor(-1)
  17.       startTimer()
  18.       repeat while the timer < 90
  19.         nothing()
  20.       end repeat
  21.       InVis(7, 11)
  22.       set actual to 0
  23.     end if
  24.   end if
  25.   if act = 1 then
  26.     if rollOver(25) or rollOver(26) then
  27.       cursor([901, 902])
  28.     else
  29.       cursor(-1)
  30.     end if
  31.   end if
  32.   Loopframe()
  33. end
  34.